home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 41
/
Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso
/
Aminet
/
biz
/
dopus
/
DOpusCFG.lha
/
DOpusCFG_020
/
rexx
/
MakeRolloverFile
< prev
Wrap
Text File
|
2000-12-03
|
1KB
|
45 lines
/* Make a rollover file, then updated a script file to reproduce it
Edited version by M. Rohles $VER: 1.1 (26.03.2000)
Original by Kirk Strauser. (AMINET:disk/misc/RolloverTools.lha)
*/
/* Program-name / Found at | Version | Configured Path+Name / misc
---------------------------------------------------------------------------
Requires: PFS2/3, Rollover-Commands | 1.2 | All commands should be copied
| into C: Dir during PFS-Install
*/
if arg()=0 then do
say 'USAGE: MakeRolloverFile NAME/A,SIZE/N/A'
exit 10
end
parse arg fname size
address command
if exists(fname) then 'RX MakeIntoRollover 'fname size
else 'MakeRollover 'fname size
'List 'fname' >T:MakeRolloverFile.temp LFORMAT="%f%n"'
call open in,'T:MakeRolloverFile.temp','r'
fullname=readln(in)
call close in
'Delete >NIL: T:MakeRolloverFile.temp'
say fullname
if ~open('out','S:RemakeRollovers','a') then do
call open 'out','S:RemakeRollovers','w'
end
a='rx MakeIntoRollover "'fullname'"'size
b='echo "Working on 'fullname' ('size' blocks, 'size*512' bytes )..."'
j=writeln('out',b)
j=writeln('out',a)
call close 'out'
'Protect S:RemakeRollovers +S'
say 'Finished. To restore your logfiles after a backup, type:'
say ' '
say ' RemakeRollovers'
say ' '